home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TGCBOR20.ARJ
/
INTROPAK.COM
/
ANIMTST2.C
< prev
next >
Wrap
Text File
|
1991-04-06
|
1KB
|
43 lines
/*---------------------------------------------------------------------------*
| TEGL Windows ToolKit II |
| Copyright (C) 1990, TEGL Systems Corporation |
| All Rights Reserved. |
*---------------------------------------------------------------------------*/
#include <conio.h>
#include "teglsys.h"
animateobject bounceicon;
void main(int argc, char **argv)
{
setvideochoices(TG_CGA,FALSE);
setvideochoices(TG_VGA,FALSE);
easytegl();
init(&bounceicon);
addframe(&bounceicon,imageBLANKBUT,-15,0,14,37,10,0,0,BLACK);
sequence(&bounceicon,1);
resetsequence(&bounceicon);
addframe(&bounceicon,imageBLANKBUT,15,0,14,37,10,0,0,BLACK);
sequence(&bounceicon,2);
origin(&bounceicon,getmaxx() / 2,getmaxy() / 2);
animateinit();
clearkeyboardbuf();
while (!kbhit())
{
sequence(&bounceicon,1);
animate(&bounceicon,destination(&bounceicon,36,0));
sequence(&bounceicon,2);
animate(&bounceicon,destination(&bounceicon,560,0));
}
teglsupervisor();
}